home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / lightpen.zip / LIGHTPEN.DOC < prev    next >
Text File  |  1993-06-24  |  2KB  |  55 lines
  1. Lightpen Pascal
  2. ------------------
  3. This is only a small unit, that will (hopefully) enable you of using
  4. a light pen in your programs.
  5. Now, when you write your program's menu etc, you can add a lightpen as well
  6. as a mouse or a keyboard device.
  7.  
  8. procedures and functions
  9. ---------------------------
  10.  
  11. Function PenOn:Boolean - returns TRUE if pen is on, else FALSE.
  12. Function PenOff:Boolean - returns TRUE of pen is off, else FALSE.
  13. Procedure GetPenPos(Row,Col:Integer) - Get pen's position and move it to
  14.                                        Row,Col.
  15. Function XpenPos:Integer - return the X value of pen.
  16. Function YpenPos:Integer - return the Y value of pen.
  17.  
  18.  
  19. That's all.. realy simple..
  20.  
  21. The files
  22. ----------
  23. Lightpen.doc - this doc file.
  24. lp6.tpu      - turbo pascal 6.0 unit.
  25. lp55.tpu     - turbo pascal 5.5 unit.
  26.  
  27. you can copy, distribute etc., this file freely.
  28. I don't know if this program works, since I don't have a lightpen, but 
  29. since it is based on interrupts I assume it will work fine.
  30.  
  31. Copyright
  32. -----------
  33. The unit is distributed as FREEWARE. However, you are NOT allowed to modify
  34. IN ANY WAY the above files. If you wish to have the SOURCE CODE, please send
  35. me $5 + Mail fee. If you find yourself using this unit, PLEASE contact me
  36. and TELL me. All you have to do is CALL, or send a POSTCARD, or drop me 
  37. NETMAIL.
  38.  
  39. Contacting the author:
  40. -----------------------
  41.  
  42. Mail:    46 Bantam Dr.
  43.          Blairgowrie
  44.          2194
  45.          Randburg
  46.          South Africa
  47.  
  48. Phone: South Africa: (011)-787 8093
  49.        International: +12-11-787-8093
  50.  
  51. Netmail: The CATACOMB BBS - 5:7101/45 (fidonet)
  52.          The Catacomb BBS - 80:80/100 (pipemail)
  53.  
  54. Any may the force be with you!
  55.